VERSION 5.00
Begin VB.Form frmSplash 
   BackColor       =   &H0042FF42&
   BorderStyle     =   3  'Fixed Dialog
   ClientHeight    =   6030
   ClientLeft      =   255
   ClientTop       =   1410
   ClientWidth     =   4470
   ClipControls    =   0   'False
   ControlBox      =   0   'False
   Icon            =   "Intro.frx":0000
   KeyPreview      =   -1  'True
   LinkTopic       =   "Form2"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   Picture         =   "Intro.frx":000C
   ScaleHeight     =   6030
   ScaleWidth      =   4470
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  'CenterScreen
   Begin VB.Timer TmrIntro 
      Enabled         =   0   'False
      Interval        =   1000
      Left            =   0
      Top             =   3960
   End
   Begin VB.TextBox Text1 
      BackColor       =   &H0042FF42&
      Enabled         =   0   'False
      Height          =   1575
      Left            =   0
      MultiLine       =   -1  'True
      TabIndex        =   0
      Top             =   4440
      Width           =   4455
   End
   Begin VB.Label Label1 
      BackColor       =   &H0042FF42&
      Caption         =   "Version 1.0"
      Height          =   255
      Left            =   3600
      TabIndex        =   1
      Top             =   4200
      Width           =   855
   End
Attribute VB_Name = "frmSplash"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
'Exit the game always by pressing F12 !!!!!
'!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
'************************************************************
'   My original language is dutch, so for your understanding:
'   Kogel means bullet
'   Gif means posion
'   GifSpuit is the spitting of posion
'   This is just for you to better understand the codes
'   Enjoy the game
'   If you know new features, add them and put them online
'   My email address is agrisman@hotmail.com
'************************************************************
Dim s
Dim Countdown As Integer
Const Music = "intro.wav"
Private Sub Form_Click()
'stops music
s = mciSendString("close " & App.Path & "\snd\" & Music, 0&, 0, 0)
Load frmspel
frmspel.Show
Unload Me
End Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyF5 Then
MsgBox "Click on the screen to go to the game, then press F5"
End If
If KeyCode = vbKeyF1 Then
MsgBox "Click on the screen to go to the game, then press F1"
End If
End Sub
Private Sub Form_Load()
TmrIntro.Enabled = True
Countdown = 0
'plays music
s = mciSendString("play " & App.Path & "\snd\" & Music, 0&, 0, 0)
'displays text
Text1.text = Text1.text + "       Kill The Alien by Agrisman" + Chr(13) + Chr(10)
Text1.text = Text1.text + "To win the game you have to kill 20 aliens." + Chr(13) + Chr(10)
Text1.text = Text1.text + "To lose it you have to be killed only once." + Chr(13) + Chr(10)
Text1.text = Text1.text + "You are in the robot at the bottom of the screen." + Chr(13) + Chr(10)
Text1.text = Text1.text + "The alien is that little guy at the top of your screen." + Chr(13) + Chr(10)
Text1.text = Text1.text + "For more information press F1 during the game." + Chr(13) + Chr(10)
Text1.text = Text1.text + "Press F5 to start the game or mail at agrisman@hotmail.com ." + Chr(13) + Chr(10)
End Sub
Private Sub Text1_Click()
'stops music
s = mciSendString("close " & App.Path & "\snd\" & Music, 0&, 0, 0)
Load frmspel
frmspel.Show
Unload Me
End Sub
Private Sub TmrIntro_Timer()
'after 6 sec. the splashscreen unloads and the
'gamescreen starts
If Countdown = 6 Then
Load frmspel
frmspel.Show
Unload Me
End If
Countdown = Countdown + 1
End Sub